Star Festival... a Return to Japan/Star Festival... a Return to Japan.iso/pc/STARFESTIVAL/Opening.dir/00001.ls

Text File | 1999-09-21 | 1.6 KB | 64 lines

on startMovie
  global qtChan, gsoundflip, gLoadFrame, gTemp, gCursorReady, gMagCursor, gCursVis
  append(the searchPath, the pathName & "Sfaudio")
  sharedStartMovie()
  preloadMember(member(146, "shared"), member(148, "shared"))
  gCursorReady = 1
  gMagCursor = "magCursor"
  gCursVis = 1
  gLoadFrame = 114
  gTemp = 0
  gsoundflip = 0
  sprite(7).volume = 256
  qtChan = 5
  preLoad(cast(qtChan))
  puppetSprite(46, 1)
  sprite(10).visible = 1
end

on SkipIntro
  if the keyCode = 36 then
    siterand = random(20)
    if siterand < 10 then
      go(1, "0" & string(siterand) & "r")
    else
      go(1, string(siterand) & "r")
    end if
    set the keyDownScript to EMPTY
    exit
  end if
end

on idle
  global gCursorReady
  if gCursorReady = 1 then
    cursor(200)
    checkCursors()
    set the locH of sprite 46 to the mouseH
    set the locV of sprite 46 to the mouseV
    updateStage()
  end if
end

on checkCursors
  global gMagCursor, gCursVis, gsoundflip
  if gCursVis = 0 then
    set the castNum of sprite 46 to the number of member "curs1"
  else
    set the castNum of sprite 46 to the number of member "nonCursor"
  end if
  if the castNum of sprite 6 and rollOver(6) then
    set the castNum of sprite 46 to the number of member "hotCursor"
  end if
  if the castNum of sprite 15 and rollOver(15) then
    set the castNum of sprite 46 to the number of member "nonCursor"
  end if
  if the castNum of sprite 10 and rollOver(10) and (gsoundflip = 1) then
    set the castNum of sprite 46 to the number of member "hotCursor"
  end if
end

on stopMovie
  sharedStopMovie()
end